home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / math.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-11-10  |  2.3 KB  |  103 lines
  1. 10  CLS
  2. 20  KEY OFF
  3. 30  X=RND(1)
  4. 40  LOCATE 10,1:INPUT "HI THERE! MY NAME IS MATH WHIZ. WHAT'S YOUR NAME";N$
  5. 50  PRINT
  6. 60  PRINT "OK, ";N$;", LETS PLAY A NUMBERS GAME."
  7. 70  PRINT
  8. 80  INPUT "WOULD YOU LIKE INSTRUCTIONS (YES OR NO) ";Y$
  9. 90  IF LEFT$(Y$,1)="N" THEN 210
  10. 100  PRINT
  11. 110  PRINT "I WILL GIVE YOU ADDITION, SUBTRACTION, MULTIPLICATION, OR DIVISION PROBLEMS.  A LITTLE BIT OF EACH IF YOU LIKE."
  12. 120  PRINT
  13. 130  PRINT "SIMPLY"
  14. 140  PRINT "TYPE 1 FOR ADDITION"
  15. 150  PRINT "TYPE 2 FOR SUBTRACTION"
  16. 160  PRINT "TYPE 3 FOR MULTIPLICATION"
  17. 170  PRINT "TYPE 4 FOR DIVISION"
  18. 180  PRINT "TYPE 5 FOR  A LITTLE OF EACH OF THE ABOVE"
  19. 190  PRINT
  20. 200  PRINT "WHEN YOU ARE DONE PLAYING, TYPE 999 AFTER I GIVE YOU A PROBLEM AND I WILL GIVE  YOU YOUR SCORE. DON'T FORGET TO DEPRESS THE `RETURN' KEY AFTER EVERY ENTRY."
  21. 210  PRINT
  22. 220  INPUT "WHAT IS YOUR PLEASURE (1,2,3,4,5)";T
  23. 230  PRINT
  24. 240  INPUT "WHAT IS THE MAXIMUM VALUE I SHOULD GIVE FOR ONE NUMBER";N
  25. 250  PRINT
  26. 260  INPUT "WHAT IS THE MAXIMUM VALUE I SHOULD GIVE FOR THE OTHER NUMBER";P
  27. 270  PRINT
  28. 280  INPUT "TYPE ANY LETTER";R$
  29. 290  PRINT
  30. 300  FOR I=1 TO ASC(R$)
  31. 310  R1=RND(0)
  32. 320  NEXT I
  33. 330  IF T<5 THEN 360
  34. 340  G=1
  35. 350  T=INT(4*RND(0)+1)
  36. 360  A=A+1
  37. 370  X=INT((N+1)*RND(VAL(MID$(TIME$,4,2)))):IF X>N THEN 370
  38. 380  Y=INT((P+1)*RND(VAL(MID$(TIME$,4,2)))):IF Y>P THEN 380
  39. 390  ON T GOTO 400,440,520,560
  40. 400  REM   ADDITION
  41. 410  Z1=X+Y
  42. 420  PRINT A;".  ";X;"+";Y;"=";
  43. 430  GOTO 640
  44. 440  REM   SUBTRACTION
  45. 450  IF X>Y THEN 490
  46. 460  X1=Y
  47. 470  Y=X
  48. 480  X=X1
  49. 490  Z1=X-Y
  50. 500  PRINT A;".  ";X;"-";Y;"=";
  51. 510  GOTO 640
  52. 520   REM  MULTIPLICATION
  53. 530  Z1=X*Y
  54. 540  PRINT A;".  ";X;"X";Y;"=";
  55. 550  GOTO 640
  56. 560  REM   DIVISION
  57. 570  IF X>0 THEN 600
  58. 580  X=Y
  59. 590  Y=0
  60. 600  L=X*Y
  61. 610  Z1=Y
  62. 620  PRINT A;".  ";L;"/";X;"=";
  63. 630  REM  INPUT THE ANSWER PORTION OF THE PROGRAM
  64. 640  INPUT Z
  65. 650  IF Z=999 THEN 900
  66. 660  IF Z=Z1 THEN 770
  67. 670  R3=RND(0)
  68. 680  IF R3>0.333 THEN 710
  69. 690  PRINT:PRINT "SORRY, TRY AGAIN ";N$:PRINT
  70. 700  GOTO 750
  71. 710  IF R3>0.667 THEN 740
  72. 720  PRINT:PRINT "I KNOW YOU CAN DO BETTER THAN THAT!":PRINT
  73. 730  GOTO 750
  74. 740  PRINT:PRINT "CONCENTRATE!":PRINT
  75. 750  F=1
  76. 760  ON T GOTO 420,500,540,620
  77. 770  R2=RND(0)
  78. 780  IF R2>0.333 THEN 810
  79. 790  PRINT:PRINT "CONGRATULATIONS, ";N$:PRINT
  80. 800  GOTO 850
  81. 810  IF R2> 0.667 THEN 840
  82. 820  PRINT:PRINT "VERY GOOD, ";N$:PRINT
  83. 830  GOTO 850
  84. 840  PRINT:PRINT "NICE GOING, ";N$:PRINT
  85. 850  IF F=1 THEN 870
  86. 860  B=B+1
  87. 870  F=0
  88. 880  IF G=1 THEN 350
  89. 890  GOTO 360
  90. 900  PRINT:PRINT "HOPE TO SEE YOU AGAIN SOMETIME, ";N$
  91. 910  A=A-1
  92. 920  C=A-B
  93. 930  D=INT(100*B/A)
  94. 940  PRINT:PRINT
  95. 950  PRINT"TOTAL NUMBER OF PROBLEMS ";A
  96. 960  PRINT
  97. 970  PRINT"TOTAL NUMBER CORRECT     ";B
  98. 980  PRINT
  99. 990  PRINT"TOTAL NUMBER WRONG       ";C
  100. 1000  PRINT
  101. 1010  PRINT"PERCENTAGE CORRECT       ";D;"%"
  102. 1020  END
  103.